/*
 * $Id: genmenu.prg 2012-09-18 01:08 riztan $
 */
/*
 *  Proyecto Tepuy.
 *
 *  Script para Generar Menu Utilizando Archivos .ini
 *
 */

#include "xhb.ch"
#include "common.ch"


Function LoadMenu( cMenuName )

   Local hMenu
   Local cMenuDir

   Default cMenuName to "main"

   cMenuDir:="./orseit/riztan/menu/"

   if lower( Right(cMenuName,4) ) != ".ini" 
      cMenuName := cMenuName + ".ini"
   endif

   hMenu := hb_ReadIni( cMenuDir+cMenuName )

Return Value2Remote( hMenu )
